library(plotly)
fig <- plot_ly(
type="treemap",
labels=c("Archives", "Icono", "13fi", "Matricule", "Marseille", "Salon", "Etat-Civil", "Notaire", "Aix", "Azura"),
parents=c("", "Archives", "Icono", "Archives", "Matricule", "Matricule", "Archives", "Archives", "Notaire", "Archives")
)
fig
NA
NA
NA
data <- read.csv("fichier_nettoye.csv", encoding = "UTF-8")
graph <- plot_ly(
type = "treemap",
labels = data$labels,
parents = data$parent,
values = data$value
)
graph
LS0tDQp0aXRsZTogIlIgTm90ZWJvb2siDQpvdXRwdXQ6DQogIGh0bWxfZG9jdW1lbnQ6DQogICAgZGZfcHJpbnQ6IHBhZ2VkDQplZGl0b3Jfb3B0aW9uczoNCiAgY2h1bmtfb3V0cHV0X3R5cGU6IGlubGluZQ0KLS0tDQoNCmBgYHtyfQ0KbGlicmFyeShwbG90bHkpDQpgYGANCg0KDQpgYGB7cn0NCmZpZyA8LSBwbG90X2x5KA0KDQogIHR5cGU9InRyZWVtYXAiLA0KDQogIGxhYmVscz1jKCJBcmNoaXZlcyIsICJJY29ubyIsICIxM2ZpIiwgIk1hdHJpY3VsZSIsICJNYXJzZWlsbGUiLCAiU2Fsb24iLCAiRXRhdC1DaXZpbCIsICJOb3RhaXJlIiwgIkFpeCIsICJBenVyYSIpLA0KDQogIHBhcmVudHM9YygiIiwgIkFyY2hpdmVzIiwgIkljb25vIiwgIkFyY2hpdmVzIiwgIk1hdHJpY3VsZSIsICJNYXRyaWN1bGUiLCAiQXJjaGl2ZXMiLCAiQXJjaGl2ZXMiLCAiTm90YWlyZSIsICJBcmNoaXZlcyIpDQoNCikNCg0KZmlnDQogICAgDQoNCmBgYA0KDQoNCmBgYHtyfQ0KZGF0YSA8LSByZWFkLmNzdigiZmljaGllcl9uZXR0b3llLmNzdiIsIGVuY29kaW5nID0gIlVURi04IikNCmBgYA0KDQpgYGB7cn0NCg0KZ3JhcGggPC0gIHBsb3RfbHkoDQogICAgICAgICAgICAgICAgdHlwZSA9ICJ0cmVlbWFwIiwNCiAgICAgICAgICAgICAgICBsYWJlbHMgPSBkYXRhJGxhYmVscywNCiAgICAgICAgICAgICAgICBwYXJlbnRzID0gZGF0YSRwYXJlbnQsDQogICAgICAgICAgICAgICAgdmFsdWVzID0gZGF0YSR2YWx1ZQ0KICAgICAgICAgICAgICAgICkNCg0KZ3JhcGgNCmBgYA0KDQo=